00100	BEGIN "XXX"
00200		REQUIRE "ABBREV[SYS,BGB]" SOURCE_FILE;
00300		ITG ARRAY HEAD1[1:300];STRING FILE,STR;
00400		PRELOAD_WITH 7,0,6,288,48,20,235,28,315,10368;
00500		ITG ARRAY HEAD2[0:9];
00600		SAFE ITG ARRAY TV1[0:10368];
00700		ITG CHR,CNT;
00800	
00900		ITG X,R,C,PTR1,PTR2;
01000		OUTSTR("FILE NAME IN = ");
01100		FILE ← INCHWL;
01200		OUTSTR("HEADER LENGTH = ");
01300		STR ← INCHWL;
01400		CNT ← INTSCAN(STR,CHR);
01500	
01600	
01700	α READ FILE IN;
01800		OPEN(1,"DSK",8,3,0,0,0,0);
01900		LOOKUP(1,FILE&".TMP",0);
02000		ARRYIN(1,HEAD1[1],128+CNT);
02100		ARRYIN(1,TV1[0],10368);
02200		RELEASE(1);
02300		OUTSTR(9&"EOF INPUT"&↓&↓);
02400	
02500	α WRITE FILE OUT;
02600		OPEN(2,"DSK",8,0,3,0,0,0);
02700		ENTER(2,"BARN1.TMP",0);
02800		ARRYOUT(2,HEAD2[0],10);
02900		ARRYOUT(2,TV1[0],10368);
03000		RELEASE(2);
03100		OUTSTR("EOF"&↓);
03200	
03300	END;